home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / rexx / G4C.Rexx
OS/2 REXX Batch file  |  1998-10-22  |  406b  |  22 lines
  1. /*  Rexx script to talk to Gui4Cli  */
  2. /*  Run this script from a shell by writting RX G4C */
  3. /*  You can then write commands to Gui4Cli - <Ctrl-C> exits  */
  4.  
  5. address 'Gui4Cli'
  6. options results
  7.  
  8. signal on BREAK_C
  9.  
  10. do forever
  11.   say "G4C>"
  12.   pull command
  13.   interpret command
  14.   if RC = 0 then say "OK"
  15.   else say "Command returned: " RC
  16.   if result ~= "RESULT" then say result
  17.   drop result
  18. end
  19.  
  20. BREAK_C:
  21. exit
  22.